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How to Load 

These programs require 32K RAM memory, an ATARI 810 Disk 
Drive, and the ATARI BASIC Language Cartridge. First, 
Insert the ATARI BASIC Language Cartridge In the (Left 
Cartridge) slot of your computer. To load and run the disk, 
turn on your disk drive. When the busy light goes off, 
insert the disk. Power up your computer and turn on your 
video screen. When the MENU appears, select the utility you 
want. Later, after you are familiar with the Utilities, take 
the ones you need and copy them to your own disks. 

MENU 
HOW TO USE MENU: 

The MENU program was designed to provide a screen 
display of disk files and run BASIC programs. MENU will 
work with either ATARI DOS 1 or DOS 2. OS and RUN BASIC 
programs that are In SAVED or tokenized format. 

MENU will automatically LOAD and RUN when your Tricky 
Tutorial diskette has been used to "BOOT UP" your ATARI 
computer. Any time you want to have MENU run first on your 
disks, just use the COPY function from the DOS menu to put 
Menu and AUTORUN.SYS from this disk onto yours. 



Booting up means that when a disk has MENU on It, and an 
AUTORUN.SYS that calls Menu, Menu is run by just turning on 
your ATARI 810 disk drive (and other peripheral equipment, 
if any: printer, interface, TV, etc). Insert the diskette 
into Drive #1 and shut the door. Make sure your ATARI BASIC 
cartridge is Installed, then just turn on the computer. 



ATARI'S DOS 2. OS will load It's File Management 
Software, then look for an AUTORUN.SYS file. Since your 
diskette does contain an AUTORUN.SYS file, DOS will LOAD and 
execute the Instructions in this short program. This 
particular AUTORUN.SYS tells the computer to say "HELLO", 
then RUN a program called INTRO. INTRO displays our cover 
message and runs the MENU program. A sequence of programs 
that RUN other programs is called CHAINING. More on that 
I ater . 



MENU begins by reading what Is called the Disk 
Directory File. This file contains a list of every file on 
a diskette. As MENU reads this information, it will count 
the number of files read, and display the current count on 
the screen. Once all files have been read, the screen will 
also display the number of FREE or available sectors left on 
the disk. 



At this point there will 
some internal calculating, 
completed, The authors name w 
"PRESS START". When the 
will appear as follows: 



be a brief delay as MENU does 
Once this step has been 
II be replaced by the words, 
START key is pressed, the screen 




SELECT OPTION 
PRESS START 

RUN BASIC PROGRAM 
DISPLAY DIRECTORY 




Note that the words, "PRESS START" and "RUN BASIC 
PROGRAM" are in WHITE. Throughout this program, the 
currently selected option will always appear In WHITE. This 
will Indicate what the computer will do if you 



PRESS START. 



The OPTION and SELECT keys are i n ter c h an g a b I e . They 
are used to SELECT the OPTION you desire. Press one of 
these keys now then release it. Note that there were two 
sounds. One was heard as you pressed the key and the other 
as you released it. The program acted upon your request as 
you released the key. Note that the words, "RUN BASIC 
PROGRAM" are no longer white but "DISPLAY DIRECTORY" has 
changed to white. Now press OPTION or SELECT again. Once 
you released that key, the screen returned to It's original 
colors. 
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Now that you understand what Menu is, let's see how easy 
It makes choosing programs on your disks. Press SELECT (or 
OPTION) so that DISPLAY DIRECTORY is white, then press the 
START key. 

You have told MENU to display all files on the 
diskette. The screen is set up to display 9 files. If more 
than 9 files are on the disk, they will be displayed, up to 
9 at a time, each time you PRESS START. Once all files have 
been displayed, you will be returned to your original two 
choices. Again, RUN BASIC PROGRAM will appear in white. 

PRESS START and a new screen wl I I appear. Note that 
there are now options numbered 1 thru 9. Only numbers 4 
thru 9 are BASIC programs. Number 1 Is CONTINUE. This 
would be selected to do just that, continue. In other 
words, you would be saying, "I don't want to return to BASIC 
(#2), or call DOS (#3), or run any of the programs numbered 
4 thru 9. 

If you just wanted to use BASIC for working on a 
program, you would select number 2. If you wanted to use 
DOS, you would select number 3. If you wanted to RUN one of 
the programs numbered 4 thru 9, you would select It's 
number . 

You may select a number by pressing the OPTION or 
SELECT key until the desired option appears In white. Note 
that here, you do not have to release the button for the 
option to change. Try It. Just hold down the OPTION key. 
One by one, each option will turn white. When you're done 
fooling around, leave the screen so that CONTINUE is white. 
Now press the START key. 



If there are additional programs to display, a new 
batch of options will appear. In each case, the first three 
will remain the same, and up to 6 new options (BASIC 
programs) will appear. When the last program has been 
displayed, and the CONTINUE option is selected, MENU will 
redisplay the first 6 BASIC programs. 

I said there were two methods of selection. The other 
is pressing the number key of the desired option. There Is 
no need to press RETURN or START when a number key is used. 
As soon as a valid key Is pressed, MENU will respond 
accord I ng I y . 
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Remember that when you displayed the DISK DIRECTORY, 
you saw files such as DUP.SYS and AUTORUN . SYS? But when you 
used the RUN BASIC PROGRAM option, these files were not 
displayed. That Is because this MENU program assumes that 
If a filename has any extention, (such as .SYS), It is not a 
BASIC program. Conversely, when no extention Is found, MENU 
assumes the file to be a BASIC program In SAVEd format. 

You may use MENU on all your standard ATARI diskettes 
for convenient directory displays and BASIC program 
selection. You will just have to remember to use filename 
extentions In all NONBASIC program names. You will also 
find that If you use an extention, that filename will NOT 
appear In your BASIC program selection, even though It might 
be a BASIC program. In other words, DO NOT use extentions 
such as .BAS to Indicate a BASIC program. We will discuss 
standards for filenames and extensions a bit later on. 




F0RMAT1 - A Disk Formating Aid 



HOW TO USE F0RMAT1 : 



Why have a BASIC program to format disks when DOS does 
the same thlng?Well, a Professor's life Is very busy with 
all these TRICKY TUTORIALS to write. When I get a chance to 
nap, I DO IT! 




So anyway, while I was laying around, er, I mean 
working, one day, I realized that when DOS is used to format 
diskettes, the user must type 6 keys before the formatting 
begins. With F0RMAT1, all you have to do is Insert the disk 
and press the START button. 



BIG DEAL! To format one disk, using F0RMAT1 saves 5 
keystrokes. If you just bought a box of 10, you save 50 
keystrokes. If you format disks in even larger quantities, 
and have two drives, you could remove the PRESS START 
prompt, make minor modifications to allow you to flip floppy 
between the two drives, with no keys to press at all! 




DISKLIST 



HOW TO USE DISKLIST 



The DISKLIST program reads the disk directory f I le from 
any ATARI diskette and generates a disk jacket label on any 
compatable 40 or 80 column printer. This label wi I I contain 
a heading, the names of each file on the diskette, and the 
number of free blocks or sectors. 

You may use plain white paper, then cut out the listing 
and attach it to the protective outer jacket using rubber 
cement or scotch tape. This will help you to identify your 
diskettes at a glance. It is recommended that these labels 
be used only for diskettes which are nearly full. Naturally, 
if the contents of your diskette changes, the label would 
have to be reprinted. 



When you RUN this program, 
insert the appropriate diskette, 
you are using. 



you will be prompted to 
then enter the drive number 



You may enter a heading for your label. You may enter up 
to 40 characters of descriptive information, or just press 
RETURN to bypass this option. 

Once this has been done, the program will read your 
diskette and print your label. You will then have the option 
to return to the MENU program by pressing the OPTION button, 
or rerunning DISKLIST by pressing the START button. 

Here's a example of output from DISKLIST: 



TRICKY TUTORIAL #7 BY JERRY WHITE 

FILE EXT SEC FILE EXT SEC 

* DOS SYS 039 * DUP SYS 042 

* AUTORUN SYS 002 * MENU 043 

* FILES 039 * INTRO 005 

* FORMAT 1 014 * AUTOBOOT 019 

* INSPECT 042 * DISKLIST 020 




The program itself is short and stright forward. It 
simply opens the disk directory to read all files using wild 
cards. For example, if you specified disk drive number 2, 
the directory file would be opened as follows: 

OPEN #1 ,6,0, "D2:*.*" 

The data between quotes is stored in the string F$. As 
each record is read, it is checked to see if it's length is 
less than 5, or if positions 5 thru 8 contain the letters, 
"FREE". If the diskette is in DOS 2 format, the last record 
will contain the word "FREE". If the diskette is in DOS 1 
format, the last record will contain only the number of free 
sectors. The length of that number will be less than 5, and 
DISKLIST will know we have reached the end of the directory 
file. 

I0CB (Input Output Control Block) #2 is used for your 
printer. Directory data is read into the string A$, and 
printed using a ? or PRINT #2 command. 

The resulting printed material will usually fit quite 
nicely on the disk jacket unless you have a large number of 
files on your diskette. 
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AUTOBOOT 
HOW TO CREATE AN AUTORUN.SYS FILE 



When an ATARI computer I 
System (O.S.) performs many 1 
these tasks Is to find out If 
so, It looks for Instructions 
whatever diskette It finds on 



s turned on, the Operating 
n i t i a I I zat I on tasks. One of 
a disk drive Is available. If 
by reading the first sector on 
drive one . 



Using your Tutorial diskette as an example, the first 3 
sectors (boot sectors) are read. Then the file called 
DOS. SYS Is read and the O.S. sets up ATARI'S F.M.S. or File 
Management System. Once this has been done, DOS looks to 
see If a file named. AUTORUN.SYS Is on the diskette. If 
not, control of the computer Is turned over to a cartridge, 
in this case, ATARI BASIC. 



CTrgmna 



Wrlaf.1i! JM -J :Mri •TAZl 



DOS VERSION 2 



EEBHS 



UPDATED 3/25/82 



BOOT INTERFACE CY or N) ?N 



ENTER COMMANDS: 



?RUN"D:MENU M 
OPENING Dl: AUTORUN.SYS 
CREATING Dl:AUTORUN.SYS 
CLOSING Dl: AUTORUN.SYS 

READY 



If the diskette contains an AUTORUN.SYS file, the system 
will execute the Instructions It receives as a result of 
reading this file (these Instructions may be as simple as 
RUN"D :MYPROG" , or more detailed If you need). Assembler 
Instructions may be executed Immediately as each Instruction 
is read. BASIC instructions will be executed after the 



ent i re 
Manua I 
I n format i on . 



AUTORUN.SYS file has been read. See your DOS 2 
or De Re ATARI if you desire further technical 
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The AUTORUN.SYS file is a handy little tool which may be 
used to automatically perform user specified instructions 
such as RUN a program. The AUTORUN.SYS file on this 
EDUCATIONAL SOFTWARE diskette tells your computer to set the 
foreground color so that it equals the background color 
immediately. Why? This was done to prevent the READY 
prompt from appearing in the upper right corner of the 
screen. Why? It Is my humble opinion that the READY prompt 
should tell the user that the system Is READY to use. in 
this case, It would not be true. 

On this disk, the AUTORUN instruction is RU N "D : I NTRO " . 
Our obedient computer will look for and hopefully find a 
program named INTRO, then LOAD and RUN it. The INTRO 
program simply displays introductory information, tel Is you 
that the MENU program Is being LOADed, and RUNs It for us. 
This could be descrlbd as CHAINING programs. DOS calls 
AUTORUN.SYS, AUTORUN.SYS calls INTRO, and INTRO calls MENU. 
For your programs, you may want to create an AUTORUN.SYS on 
disks holding your favorite games or business programs. 
AUTORUN.SYS will automatically run them. What to do If you 
have several games on a disk? — use MENU and AUTORUN.SYS. 

The AUT0B00T program may be used to create your own 
AUTORUN.SYS file on any DOS version 2 diskette. DO NOT RUN 
AUT0B00T until you have made a backup copy of your 
EDUCATIONAL SOFTWARE diskette. The AUTORUN.SYS file on this 
disk is locked to prevent accidentally writing over It. 

As an example of using the AUTOBOOT program, let us 
assume you have decided to use my handy little MENU program 
and would like to have MENU RUN automatically, bypassing the 
INTRO program. O.K. You would begin by using DOS to FORMAT 
a blank diskette. Once formatted, use DOS option H to write 
DOS files. Be sure to use DOS 2. OS. When In doubt, simply 
BOOT or reboot your computer using our diskette (which has 
DOS 2. OS on it), then load DOS from the MENU program, (see 
MENU Instructions). Now use DOS option to DUPLICATE the 
MENU program. 

If all went well, you should now have three files on the 
new diskette. Check this by using DOS option A to display 
the Disk Directory. Type a capital A, then press RETURN 
twice. The first time you press RETURN is to enter the A 
option. The second time Is to bypass al I options of the 
Disk Directory feature. This tells DOS to simply display 
all files found in the Disk Directory file onto the screen. 
There should be three; DOS. SYS, DUP.SYS, and MENU. The 
number to the right of the filenames are the number of disk 
sectors occupied by that file. The last line tells you the 
number of FREE or unused sectors. 
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Now to create our AUTORUN.SYS file. Before we can RUN 
the AUTOBOOT program, we must exit from DOS. To do this, 
type B and press RETURN. Since the BASIC Cartridge Is In 
place, you will now see the familiar READY prompt. Put your 
TRICKY TUTORIAL diskette back Into drive one, type 
RUN"D:AUT0BOOT", and press RETURN. 



Before you go any further, remove the TUTORIAL diskette 
and insert the one on which we will write our new 
AUTORUN.SYS file. The first prompt will ask you if you wish 
to BOOT INTERFACE (Y or N). If you will be needing the 
serial ports of ATARI'S 850 Interface Module, respond Y. If 
you don't need them, or if you don't have one, respond N. 
There is no need to press RETURN. 



At this point we can enter whatever BASIC commands we 
want to have executed by AUTORUN.SYS. You can only type In 
one line of BASIC commands, so use colons and keep the total 
length to 3 lines on the screen (133 characters, as in your 
BASIC Manual, see last page). The AUTOBOOT program will 
automatically generate code to set the background and 
foreground colors equal (eliminating the READY prompt). By 
the way, the prompt will be on the screen, you just won't 
see It. I mention this to point out that if you were going 
to use a PRINT command, you wl I I want the text to show up on 
the screen. For this reason you should begin your AUTORUN 
instructions with a GRAPHICS command to set the colors back 
to norma I. To keep this example simple, just type 
RUN"D:MENU" and press RETURN. 

As the AUTOBOOT program RUNs, it will tell you what It 
is doing. It will OPEN, WRITE, then CLOSE a file named 
AUTORUN.SYS. Upon completion, AUTOBOOT will simply END. 
All you need to do to see your AUTORUN.SYS file do it's 
thing is shut off the computer, then turn it back on again. 
The computer will do the BASIC statement you gave it. 

Some people say that frequently turning electronic 
devices off and on is not good to do, since it wears out 
components. To avoid this and still test your AUTORUN.SYS 
file, just type POKE 580,1 and press RETURN, then press 
SYSTEM RESET. This will cause a cold start, similar to 
turning off and then on again. 

You may enter a series of unnumbered BASIC commands Into 
the AUTOBOOT program. They must be separated by a colon and 
not exceed three I ines on the screen. You might wish to 
display a message, reset margins, or simply create a disk 
that will automatically call DOS. 
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If no BASIC Cartridge is found, DOS will load and 
display it's own MENU of options, Ignoring the AUTORUN.SYS 
file. To automatically use DOS options with the BASIC 
Cartridge Installed, use AUTOBOOT and simply enter the 
command DOS. 



The AUTOBOOT program provides a method of automating 



tasks that 
automat i on 



might otherwise have to be done manual ly 
wonder f u I ? 



Isn't 



I NSPECT 



HOW TO USE INSPECT 



RUN the INSPECT program 
the program by it's full 
provides four options. When 
Is no need to press the 



The options display identifies 
name, "DISK INSPECTOR", and 
entering an option number, there 
RETURN key. 




1 - EXAMINE DIRECTORY 



Let's begin by typing the number 1 to examine the 
directory file of this diskette. The screen should now 



display: 



s 


FN 


FILE 


EXT 


SSEC 


NSEC 


L 





DOS 


SYS 


4 


39 


L 


1 


DUP 


SYS 


43 


42 


L 


2 


AUTORUN 


SYS 


85 


2 


L 


3 


MENU 




87 


43 


L 


4 


Fl LES 




130 


39 


L 


5 


INTRO 




169 


5 


L 


6 


F0RMAT1 




174 


1 4 


L 


7 


AUTOBOOT 




188 


21 


L 


8 


INSPECT 




209 


4 2 


L 


9 


DISKL 1ST 




251 


20 


L 


10 


RPMTEST 




271 


14 



The first column provides the Status of each file. In 
this case, each file shows the status L. The L indicates 
that the file is locked. If the file were unlocked and 
available, the status would be blank. If a file was 
Deleted, the status would be Indicated as the letter D. 

The second column shows the File Number. The first ffle 
number is zero. The maximum number of f i les that may be 
stored on a given diskette is 64. If the directory were 
completely full, the last file number would be 63. 

Following the file number is the filename and extention 
if any. Note that the "." between filename and extention is 
NOT displayed. 

Finally we have two columns of decimal numbers. The 
first Is "SSEC" (the starting sector) and the second is 
"NSEC" (number of sectors). Note that our first file, 
DOS. SYS, begins at sector 4 and occupies 39 sectors. The 
first 3 sectors on the disk are reserved as BOOT sectors. 

At the bottom of the screen is the message, "PRESS ANY 
KEY FOR OPTIONS". Do this and you will return to our 
original four options. 
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2 - EXAMINE SECTOR 

This time type the number 2 to EXAMINE SECTOR. The 
program will then ask us to "TYPE SECTOR NUMBER RETURN?". 
Let's examine the first sector of the AUTORUN.SYS file. 
Type the number 85 then press RETURN. The program will then 
ask us to TYPE 1 FOR CHARACTER OR 2 FOR HEXDUMP. Type the 
number 2 (NO DEPOSIT, NO RETURN). 

Each sector consists of 128 bytes. Note that the first 
two bytes of the AUTORUN.SYS file are FF (decimal 255). 
This Indicates that the file is In machine language or what 
Is also known as Object Code. Once again, press any key, to 
return to our options display. 

Now let's examine sector 87 which is the beginning of 
our MENU program. Note that the first 3 bytes are 00. 

This Indicates a BASIC program in SAVEd format. 

Return to the options display and have another look at 
sector 87, but this time specify 1 for character format. 
Note that the first three bytes are hearts. The heart 
character Is ATASCII character 0. 



3 - EXAMINE FILE 

Get back to the options display and type the number 3 to 
examine a file. The program will then ask us to ENTER 
FILENAME? Type MENU then RETURN. Once again we see the 
beginning of the MENU program but in a somewhat different 
screen layout. Here we begin with byte 1 instead of 0, just 
to say that this is the first byte of the MENU program. For 
each byte, the Decimal and Hex Values are displayed along 
with the ATASCII character representation. 

At the bottom of the screen you will see, 
"0PTI0N=0PTI ONS START=CONTI NUE" . To continue looking Into 
the MENU program, (20 bytes at a time), press the START 
button. When you are ready to return to our options 
display, press the OPTION button. 



4 - RETURN TO MENU 

The fourth and final option is used to return to our 
main MENU program. 



■13- 



RPMTEST 

If you suspect that you are experiencing problems caused 
by your 810, this little program might come In handy. It 
will allow you to check the speed of your disk drives. 

Before we go any further, I'd like to thank the author 
of this program, Bob Christiansen of Quality Software, for 
his permission to Include his program In this package. 
RPMTEST was originally published In the May 1982 issue of 
COMPUTE! magazine. Although my version is slightly 
different, the logic, and the machine language routine 
remain the same. We cannot reprint the COMPUTE 
documentation, nor do we wish to steal it by making minor 
mod i f I cat ions. 




RUN this program now. If your drive is running at the 
proper speed, your diskette should spin between 285 and 290 
times per minute. The absolute perfect speed is said to be 
288. 

The question that the program asks you is: "Which drive 
number do you want to test"? Before you answer, make sure a 
formatted diskette Is ready in the appropriate drive. Note 
that this program will test by reading sector number one of 
the diskette, 100 times. You can use any program disk 
without fear of losing data or damage to the disk. Enter the 
appropriate drive number from 1 thru 4, then press RETURN. 
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It will take about 22 seconds for the test. The speed 
will then be displayed. If the speed Is within normal 
limits, the background color of the screen will change to 
green, and a message will say, "DRIVE SPEED IS O.K.". If 
your drive speed Is too fast or too slow, a message will be 
displayed to that effect, and the background color of the 
screen will be red . 

At this point, you may test again by pressing the START 
key, or return to the MENU program by pressing the OPTION 
key. If you decide to return to the MENU program, make sure 
our tutorial program diskette is ready In drive one before 
you press the OPTION key. 

When testing the speed of any drive, It Is Important 
that the diskette you use Is spinning freely. If you hear 
any unusual sounds, the diskette might be rubbing against 
it's jacket, causing the RPM speed to be slow, you may want 
to test the drive speed using several different disks. 

It is also important to note that the speed of the 810 
has been known to be about 3 RPM faster when it Is cool, 
than after It warms up. Since most of the time the drive 
will be warm, It should be tested under those conditions. 



I f after running 
drive to be conslstan 
adjusted. You can do 
COMPUTE article, or h 
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will be vo I d I ng your 
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you who would do som 
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If you find that the speed varies by more than 2 or 3 
RPM from test to test, you have a problem that should 
deflnately be brought to the attention of an authorized 
service center . 




DEALER 
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ATARI DISKFILES TUTORIAL 

Many new computer owners are anxious to learn how to 
write useful programs for themselves. After reading the 
literature packed with the machine, the new owner Is often 
overwhelmed by the many technical aspects of using a 
computer. Since you can not learn any programming language 
overnight, a seemingly endless period of trial and error 
usually follows. A new owner Is often seen burning the 
midnight oil and arguing with a defenseless TV or monitor. 

If he or she perseveres long enough, useful programs can 
be written. The new programmer Is now ready for bigger and 
better things. 

Assuming that a disk drive is available and our 
"hacker" has had some experience with DOS and the loading 
and saving of programs, he or she Is ready to write some 
kind of database program. Now don't be scared off by a big 
word like "DATABASE". It just means you are going to save 
some useful Information on a disk for later use. Our 
examples will be simple, but the methods will work just as 
well for more complex data. 

The data file may consist of a simple list of record 
albums for a start. When you have gained experience, you 
might want to try a Personal Finance System. If you are at 
the point In your programming career to want to keep 
records, or think you might be In the near future, read on. 

Start with something very simple. Don't try to write 
that Financial Package yet. There Is a lot to learn first 
about file structure and I/O. I/O stands for Input/Output. 
Input Is data being read by a program. Output is data being 
produced by a program. A file consists of one or more 
records, and a record Is an Item'withln a file. Records may 
be broken down further Into fields. We will be using simple 
records containing a single 10 character field as our 
record, and create a sample 10 record dataflle. 



WHAT THE HECK IS A DISK FILE? 

A FILE Is a collection of related data. Files fall Into 
two major catagorles; Program files, and Data files. 

Each major section within a file Is called a RECORD. In 
a data file, each record may be divided Into a number of 
FIELDS. 
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For example, let's assume you had a data file of names 
and telephone numbers. The name could be one field called 
NAMES, and the telephone number could be a field called 
PHONES. Using IOCB #1, these two fields could be written as 
a record as follows: 

PRINT #1 ;NAMES, PHONES 

NAMES$+PH0NE.S = 1 record. A file consists of one or more 
records, and a record consists of one or more fields. 



The DISKFILE tutorial program demonstrates many of the 
common functions required In a simple database type program. 
By using the program and studying the program code, you will 
learn how datafiles may be handled In ATARI BASIC. 



It Is Important to understand the terminology used here. 
CREATE means just that. In this case It means create from 
scratch. Note that the create routine actual ly begins at 
line 1000 and that line 1010 contains an OPEN command. The 
number 8 In that command means write only. If a file Is 
opened using this variable, and a file with the exact same 
name Is found on your diskette, the old file will be deleted 



automat leal I y 



Using option two, a file is read from disk and displayed 
on the screen. This does not In any way alter the disk 
file. 



Option three Is used to ADD data to an existing disk 
file only. The term APPEND Is often used In this case. In 
plain English, the term APPEND means, "add to the end of 
this file." 

Option four Is used to UPDATE the records of an existing 
file. This means you will alter, fix, or change a record. 
This procedure Is a bit more complicated than the others 
since we will not know which record the user may choose to 
update In advance. The technique used In this demo program 
Is known as Random Access Updating. An index consisting of 
SECTOR and BYTE locations Is created and stored In an array. 
This gives us the exact spot where each record begins. 
Since we are using fixed length records of 20 characters 
each, we can read a specific record Into a string, change It 
in the string, then rewrite the string onto the disk. This 
becomes a real time saver when many records must be updated 
I n a I arge disk file. 



Option five is used to READ and display a specific file 
called the DIRECTORY FILE. This DOS generated file contains 
the table of contents of your diskette. This file Is also 
known as the VTOC or Volume Table Of Contents. For display 
only, this routine does the same thing as DOS option A. 



Although some error trapping has been bul It In, many 
possible error conditions are not corrected or fully 
explained by this program. Error trapping and human 
engineering account for a great deal of planning and program 
code. This is not a cop out on my part. The point here is 
to provide an example of dlskflle handling. Accounting for 
all possible errors could easily double the size of the 
program, making it more difficult to understand. 



That's about It for now. I suggest you use my program 
as is, then experiment by makingmlnor changesand notelngthe 
results. When you're ready to write your own dlskflle 
handling program, feel free to use t 



I t e your own 
these rout I nes . 




While the rest of this package was designed to provide 
you with utility programs and related informat 
program Is not a utility. It was des 
to manipulate data files on disk. 



g n e d t o 



on, the F 
show you 



LES 
how 



You may be interested In using this information to 
create your own data file handling program. The following 
I explain the various BASIC routines used 
may alter and use them in your own 



in FILES, so that you 
database programs. 



I wrote FILES using meaningful variable and str 
names. Look at program lines 100 and 110 
the disk drive number in a format such as 
hold the filename you specify such as 
DRIVEFILES will hold the combination of 
such as "D1 :TEST.DAT". 



n 9 

DRIVES wl II hold 

"D1 :». FILES will 

"TEST. DAT", and 

DRIVES and F I LES 



For purposes of this tutorial, we will use very short 

data records containing 10 characters and use RECORDS to 

store the current record. ANSWERS will be used to store a 
response from you, the user. 



The arrays SECTOR and BYTE will be used to store the 
location of each data record on the diskette. DIRECTORYS 
will store the records we read from the disk directory file. 

We setup our menu screen display starting at line 120 
and ending at line 210. At the end of line 210, we go to a 
subroutine which starts at line 7000. This subroutine will 
be used whenever we need a single character response from 
the user. Before the INPUT statement, we make sure anything 
previously stored in ANSWERS is eliminated and POKE 764,255 
to Ignore any previously pressed key. In this case, we are 
waiting for the user to enter the desired option number. 

When we return at line 220, we set a trap to line 800 
which is an error message routine. Then We store the number 
120 in the variable LINE, and the number 6 in the variable 
HIGHNUMBER. The last thing we do in line 220 is put the. 
numeric value of ANSWERS Into the variable NUMBER. 

If the user entered a letter instead of a number, BASIC 
will give us an error condition because we cannot take the 
value of a letter. The trap to line 8000 will be activated 
and the error message from that line will be displayed on 
the screen. At line 8010, we go to the alarm and time delay 
subroutine in lines 9000 and 9010, then go back to whatever 
line number is stored in the variable LINE. In this case 
that line number Is 120. 

If the user did enter a number, I I ne 230 checks to make 
sure the number was not less than 1 or greater than 6, and 
line 240 sends us to the line where the selected option 



rout i ne begins. 



Let's go through each of the six routines beginning with 
number one, which begins at line 1000. This routine creates 
a sample data file consisting of ten records. Notice that 
we reset the value of LINE to 6100. LINE will always hold 
the line number that may be used later by a GOTO LINE 
I nstr uct I on . 

Next we go to the subroutine beginning at line 7100. We 
will be using this subroutine often, so study it carefully. 
This routine gets the desired drive number from the user and 
makes sure it is not less than 1 or greater than 4. Once a 
valid drive number has been entered, it creates DRIVES as we 
described earlier, and asks for a filename. This 
Information Is combined and winds up in the string 
DRIVEFILES. 
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RETURNing to line 1000, we set a trap to line 9100 in 
case something goes wrong, clear the screen, and attempt to 
OPEN the file as specified In DRIVEFILES. We probably 
didn't have to CLOSE #1 before the OPEN, but It was done 
just In case that I0CB was left open. In any case, It never 
hurts . 

Notice the operand 8 used In the OPEN command. It is 
most Important that you understand the function of this 
number. In this case it means we want to OPEN a file to 
WRITE only. If any other file on the diskette contains the 
same filename, ATARI'S file management system will delete 
the old file to make room for the new one. It is therefore 
important to remember that the operand 8 should only be used 
to create a NEW data file. 

Each of the other possibilities for this operand are 
demonstrated by this program. The number 4 Is used If a 
file is to be OPENed to read only. 9 is used to APPEND data 
to a file. APPEND means add to the end of an existing file. 
12 Is used to READ or WRITE and is used for updating an 
existing file. 6 is used to OPEN the diskette's directory 
file and read It. By studying the FILES program, you will 
learn how each of these OPEN operands are used. 

The data In our records will consist of ten characters 
that do nothing but take up space, and show you that we 
created a ten character record. The program writes ten 
sample records by using a ? (PRINT) #1 command within a 
FOR/NEXT loop. We should now have a ten record file to work 
with, (big deal ) . 

At the end of this routine, we GOTO 6100. This routine 
closes all lOCBs, sets the print tab width to 5, and 
displays the message, "PRESS RETURN FOR OPTIONS". This was 
done to give the user time to read what was displayed on the 
screen before returning to our main options screen. 

There Is very little difference between the routine we 
just used (lines 1000-1100) and the routine beginning at 
line 2000. Option 2 allows us to read a file like the one 
we just created. The difference is In the OPEN variable 
being 4 instead of 8, (read Instead of write), and the lack 
of the FOR/NEXT loop. Since we do not know in advance how 
many records to read, we just set a trap. When we get an 
end of file error from BASIC, we know we read the whole 
file. 

The routine beginning at line 3000 is somewhat more 
complex. Here we will add to our data file. We OPEN using 
the #9 to APPEND, get record data from the keyboard, add 
blanks if necessary to insure a record length of 10, and 
provide an option for the user to add as many records as 
desired. 
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Opt I on #4 is by f 
beg ins at line 4000 . 
READ/WRITE, and updat 
file. First, we hav 
record on the diskett 
storing the sector an 
appropriately named a 
stores our current po 
record counter, then 
we input a record and 
the screen. Once we 
where each record can 
records without rerea 



ar the most 
Here we 
or change 
to know t 
We do th 
byte locat 
rrays. The 
s i 1 1 on on t 
store our po 
display all 
've read th 
be found, w 
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complex. T 
OPEN using 
records in an 
he exact I oca 
is by reading 
ion of each r 
NOTE command 
he disk. We 
s i 1 1 on in our 

available in 
e entire file 
e can change a 
e again and ag 



his routine 
the #12 to 
ex I st i ng data 
t i on of each 
the file and 
ecord In the 
in line 4030 
add 1 to our 
arrays. Then 
formation on 
and we know 
ny number of 
a i n . 



To update a record, we just ask the user for the record 



number to be updated, 
demonstrated in line 4300 
maintain our fixed record 
When we PRINT our updated 
be writing the new record 



and POINT to this record as 
The only restriction is that we 
length of 10 positions per record, 
record on the disk, we will simply 
where the old one used to be. 



This process is called random access updating. 

In your own programs, you can change the record length 
to as much as 256 positions, and just modify this 
demonstation program to store whatever information you 
desire. If you can stay within 80 characters per record, 
and you'd like a collection of programs written specifically 
to provide various types of data storage and retrieval 
functions along with sorting and printing capability, look 
into SWIFTWARE's (Swifty Software's) FILEIT 2 package. It 
can be used to print lists of most anything, address labels, 
and financial reports. I wrote it with the home user and 
small businessman in mind. 

We still have one more option to describe in addition to 
#6 which Is used to automatically return us to the MENU 
program. Option 5 reads the disk directory file, and 
displays It on the screen. This tells us the names 
program and data file on a given diskette along 
number of sectors it occupies, 
unused sectors we have left. 



and the number 



of each 
wi th the 
off FREE or 



This routine, which begins at line 5000, is very simple. 
The key is in the OPEN command. The D:*.* specifies disk 
drive 1, all files. It could also be DI:*.*, but drive one 
is always assumed if the drive number is not specified. 
Those asterisks are called wild cards. * . * means all 
letter/number combinations before and after the period or 
filename. extention divider. The following are a few 
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possibilities that cou 
what they would specify 
for further information 
*. =AI I 
*.SYS = A I I 
M*. =AI 
extent i ons . 
M*.* =A I I 



be used to rep 
See your DOS 2 



ace the *.*, and 
reference manual 



filenames with no extentions. 
filenames with the extention .SYS 
filenames that begin with M 



filenames that begin with the 



and have no 
etter M. 



The DISKLIST and MENU programs read this same file to 
provide their disk jacket label printing and automatic 
program loading features. 

Hopefully, the FILES program listing, this 

documentation, and the pages that describe how to use this 

program, combine to provide you with everything you will 
ever need to know about the handling of data files. As with 

any form of programming, a little effort and trial and error 

on your part will be required to put this information Into 
pract i ca I use . 




This concludes our tutorial on disk files. We hope you 
find the utility programs to be useful, and learned 
something about using your disk drive along the way. If you 
have any comments about this package, feel free to contact 
the author at the address listed below. 

Jerry White 

18 Hickory Lane 

Levittown, N.Y. 11756 
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F>ROOF*#=»M l—ISTIMQS 



MEMU 



lag REM I5ia,'ltl (O 1982 b« Jerry Win te E4/4/82J 
11D GOTO |TB 

128 FOR ME = (11 TO LEH(D$J :IF B$(ME,ME)=" •■ THEN JWS<ME,ME)=" 

•■ : GOTO 140 

1 3- O J W= flSC C B 5 C ME , ME ) ) + 12 8 : JWS £ ME , ME) ~ C H R 5 UN) 

KB HEHT ME .-RETURN 

HS8 POKE 16,64!POKE 53774 , 112 : POKE 718,14:POKE 70S ,31: POKE 7 

(0.172:POKE ?11,90!P0KE 712,144 iRETUHH 

168 TRAP 178:IHPLT tt(ll,PS!IF P$ (5,(18) <>"FREE" THEN 268 

170 POSITION 1)2,116:? «Q&;" TOTOL FILE5 = ":P05ITI0H (12,(18:? (BO 

6:PS(01,(14);"FHEE SECTORS":? R(I6:LS:IF BPX16 THEN DBP = tt6: TBP 



ISO IF BP<=06 THEN DBP=BP : TBP=BP 

i?« b p d s - ■ 'rariT:! V* : 1 1 1 ^o asic t> a s 

"" :: 3EL=01 : PN^flS : GOSUH 121* 
ZOO POSITION O6 , Ol : ? Wt.Ofi ; " - M E H L 



■ : jws=' ■rarnrinir4TTnTwvT:fc» «ri [HjE 

P05ITI0B a ?' , a 7 : ■? naei" 



* POKE 54B r 68:POKE 027^,03 

» IF PEEK(Q273)=86 THEN RETURN 

I IF PEEKCS40)>25 THEN POSITION 

ro 220 

» POSITION d4,(17:? B(16:" 



:IF PEEKI548)=n3 THEN 



50 


GOTO 220 






so 


R- R + Ol : POSITION :L'S 


1. , . 


11) - 


.i,« .. THEM BP~ 


:BP 1 


70 


GOTO 168 






so 


KEY-PEEK t?(S4) : POKE 


F KEV- 


: 3 1 THEN 


SEL~ 


:OI : 


90 


IF 


K E V = 3 O 


THEN 


SEI- 


O O 


IF 


KEV=26 


T H E N 


SE L. 


IO 


IF 


KEV=24 


T IH E IM 


5EL 
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IF 


K E 'V = 2 3 


T H E M 


SEE 


SO 


IF 


KEV=27 


T H E N 


SEE 


4 fl> 


IF 


KEY=S1 


T y-fi E N 


SEE 


50 


IF 


KEV=5J 


THEN 


SEL 


68 


IF 


KEV=48 


T H E M 


5EL 


7Si 


LSt: 


I-TE MP : 


G O T O 


390 


SO 


T :ft ft P 4 OOOO 


: KEYSEIL — 


90 


G R ("* P H I C 3 .1 


7 ; GOSILIB 






7 ~ 1 Ci , 


11*17 


3 1- p S 


8) =PS 


((!7, 


IO) 


;L5EL 


= SEL 


: KEV 



: I F PS( 



5E1 = (11 : 



41 O G R 



A P H I C S 18 I G0 1 



B 



764,255:1 EMP-L 
GOTO SSO 
= (12 : GOTO 668 
= 07:60T0 t. ? O 
-Q4:GOTD 3ESfl 
=S:GOTO 388 
~.Qtt : GOTO 3JJO 
=7 : GOTO 386 
= OS : GOTO 388 
=9 : GOTO 380 

(tl:l P~PN- 1)6P:CP = 5EL- 7 + FP:G0T0 

ISO:'? ItflS : ? »06J" SELECT OPTI 

E T II R N 

lS8(0P=10ei? IHI6:L$:G05UB 418:GOTO 448 



7 SO 

ON" : ? » 



I O POST T I ON 1)4,82:? »0 
■ IzlUcfcMHTgSTTW ; 1 tt(16;lS 
JO POSITION l»2,7:? W« B 

j b ; "fTff*ri*i?niirFiJa3saL!iij?]" 

SO POSITION 82,7:? D8 6 
18 B U T =:PEEK £0279) : X F 



:P05ITI0N 41 3 , 18:? SttO «i ; L S 

iITJETJBrarSS-MtfJEimrai" : position 02 , 9 : ? 

: « E T II R M 

; • -iTasrrim^^t^mrssic-ircs^TZ- ■: position 02, u : ? 

:«ETURN 
U T :-: 'S O R IB U T — CI 1 7 T HEN GOSUB 1858:GOT8 S 



> O IF B « T = Q (i 

> O GOTO 448 

'© BUT=PEEKt8279) :IF 

fO GOSUB 412« : IF OP = l 

•O GOTO 8S8 

IO IF OP=LOO THEM OP 

L O O P " 1 O O : G O S U B 4 2 O : 

►8 IF BP = (I3 THEN JL .1 4 

18 IF B P > Q 6 T HEN & B P 

IO IF BP< — 04i THEN U> B 

>6 SC=IHT(BP/()6)H01: 

JO 5-.PEEK(560)+PEEI(( 



THEN GOSUB (!28:GO T O 4 ? O 



)UT — c*& THEN 478 

) THEN G05UB S96 I GOTO 528 

t O O : G O S 11) B 4 3 O : G O T O 448 
i) T O 4 4 8 

)t> : U BP-.BP 
:BP: rBP=6P 
L L " « 1 : P N = O 3 

>1) *256*(14 : 3M-PEEK 13) -"PEEK 



CS K)1)*ZS6 : J 



H=U5R(ft[>l!fMCS) ,5M+60,36B) 

578 FOR DI5=(li TO Q7:P05ITICIK 04 ,DI5*»2t(!2: ? »86;DIS;"= ":BP 

»S (DI5KQ8-7 , l>15*(18) : HEKT DISPOSITION [)4,Q4:? ttd6;"OH" 

5 S O FOR [>I5 = a4 TO DBP+07iPH=PHt(ll:PB5ITIOH O 4 , I> I S*H* Z + O Z ! ? «Q 
6;l)I5;"= " iB$(PM*08-7,PN»08] :NEKT DIS 

598 DUTsPEEK (62791 1 IF B U T = o 6 THEN GOSUB OZB:GOTO 748 
GOO IF PEEK(764)<>255 THEN Z88 
618 IF BUT = n? OR BIIT = 5 THEM 638 
628 KEVSEL=Q3:KOTO 598 

6 3: LSEL = 5EL ; 5EL = 3 E «... + O. 1 : I F 5 E I- = DBPK14 THEM 5EL = tll 

6 4 8 IF 5ED87 THEM 718 

E.S8 IF 5EL=81 THEM POSITION 84,84:? «0 6;"F»H S«1H !>*<?HIN " I POS1TI 

ON Q4,06:? IM)6;"2= BASIC" I POSITION 04,08:? 006;"3= DOS" 

660 IF 5EL3Q2 THEM POSITION 84,84:? B86:"l= CONTINUE" : POSITI 

ON 4,06:? OQ6 ; "fSS IHMMilM" t POSITION 04, OS:? B86;"J= D83" 

671 IF 5EL = Q7 THEN POSITION 04,04.? BQ6:"1= COM T INUE" : P O S I T I 

ON 04,06:? tt86;"2= BASIC" I POSITION 84,88:? «Q6;"S3H EEH"" 

688 IF KEVSEL THEM SOO 

698 IF 5EL = 81 THEM F P = P H — DB P : LP = L S EL — 8 7 + F P : C P=SEL— 07+ F P : GO T O 

728 
708 GOSLIB 18S8:GOT8 Ei 9 8 

7' 1 O FP = PN-I)BP : LP = L5EL-B7 + FP : CP= 5EL-Q7 + FP : IF S E L = 8 4 THEN P O S I 
TIBN 84,88:? «06;"3= l> O 5" : I SEL = 52*1 2 8 : GOT O 738 

7ZO POSITION 04,L5EL*02 + Q2:? 1186 : l_ S EL ; ••= " : BS CLPS08-7 , LPXQ8) 
:ISEL = L5EL + 49 + 128:IF SEL = OI THEN GOSUB I 8 8 8 : G 8 T O 598 
738 POSITION 04 , 5EL*82tQ2 : ? «06 ; CHRS t:[5El,'J ; "EH"; JUS CCP«f)»-7 , 
OP Mf 88] : G O S LI B 1 8 8 O :: G O T O S 9 & 
7 4 8 BU1=PEEK(8279) : IF B U T = O 6 I HEN 7 4 8 

7 B 8 IF S EL < CI 4 r HEN GOSUB O 2 8 : G O TO 8 O 8 

7 6 8 D O I T * = ' " t> 1 : " ' : T R ft P 1168 : DOITS (LEN (DOITS') KID =BS (CP*88-7 , CP 

*B8) I GRAPHICS 1 8 3 GOSUB ISO 

778 POSITION Q6,Q7:? H,86 J "BEXH3E3ZX3" I FOB LD=«1 TO LEN(OOITS) :T 

F l> O I T $ tLI>,LDI=" "" THEM POP ! G O T O 7 9 8 

7 8 8 N E X T I D 

7 9 8 KK = 10-INT (LD/02) :PO5ITI0N KK , 5 i ? WO 6 : l>8 I T $ : RUN DOIT* 

ft OO IF" SEL = OZ THEM END 

81 O IF SEL =07 THEN DOS 

£t Z: O TBP = TBP-86:IF T El P < = O 3 I H E M GOT B 2 

£1 3 O I f T B P > = a e T H E N D B P = 8 6 : G O T O S ft 8 

84 8 DBP=TBP : GOTO 568 

85© TBOP 94B:C85UB 1 1 3 8 : P R =R : S P =8 3 : SC =Q3 

£(68 IF PR = 83 THEM 948 

El 7 8 S C = S C + 8 1 : I F 3 C < 1 8 T HEM PR = PR — O 1 I SP=S P + O .1 : ? t*0 6 : ? HO S)DtC 

5P*17-16,5P*17) : GOTO 868 

£18 8 IF SC = 83 AND PR = 03 THEN 948 

898 POSITION 84.22:? H86 ; "railSBislllPSi ir-lji') 1 ■ 

9 O 8 IF PEEK((1279)<>86 THEM 9 O O 

9 J O G05UB 8 2 8 

9 2 8 I F P E E: K f ft Z 7 9)=06 T H E M 9 2 O 

9 3 8 G O SUE! 8 2 8 : S C = 8 1 i G O S U B 1 1 3 O :G8TB 868 

948 POSITI8N 8 4.22:? 1186:' Mllt»a«MbBNt«if .TI:»N- ■ 

950 IF PEEK(0279)006 THEN 958 

968 GOSUB 828:G8T8 10 3 

9 7 8 BEOD Ol , 82 , 83 , 84 , 116, 87 , 88 , 020 , 8279 

9 8 8 DOTS 1,2,6, 4 , 6,3, 8 , .1 -1 1 8,53 2: 7 9 

996 [> I M Dt< 1 O S 8 J , P * (281 , 8 P * C 2 O ') ,LS( Z O 3 , B P D S (243 ,JU$( S .1. 2 J , B $ C 

5i.2> ,doitS(id , mcs (42) : j_ s ■- ' • w^awitt u \*M*mnu'S i m r a\ws m m w a muttmw m<- ■ 

1888 Mc$ = "i-.hriih:ir3t>:rTni".rNi^-c]iiwjws^^ : grophi 

C5 18 : GOSUB 158: CLOSE HOI : OPEN »01 , 8 6 . Q3 , "D :«.»»• I ? B06:l.5 
1818 P OSITION fl 6 . 8 1 : ? «06|"M E H II" : POSITION O .7 .117:? MO 6 ; " "(sfii 

WmJM3S!WC!i DsSOB" ■ : ? *«o 6 ; L tiPOKE see , a 3 > p o k e- <=> 5 . a 1 

18Z8 IP 8 S I T I O N 8 2 , O 6 : 1 MP 6 J * • R EA » IN G F I LE"| : G O S LI IS 1 6 8 : G O S LI B O Z 

o 

18 38 IF PEEK(0279)=06 THEN 1838 

1848 GOSLIB QZOlGOTO 481) 

1 8 5 8 G O S 1 1 B 8 2 O 

I860 BUT=PEEK CO 2 79JUF B 1 11 = : 5 H 1 1» B II T = O 7 T H E M 10 6 

.1 8 7 a II Er T U8H 

1888 POKE 548 , 28 

1 8 9 O 5=PEEK(548) : IF 5003 THEN SOUND 83 . 5E1 -Ol . Q2 . 5/02 : G6TO 
J. 8 9 O 



11GQ SOUND QJ,n3.QJ,OJ:HETHRM 

1 1 t SOUND 03.1B2,J.2,08:50UND Ql, Sl,12,OS IPOKE 0279 ,03:50UMI) 

02,(13,(!2.08:50UND Q7 , (11 , (12 , (18 : POKE 0279,03 
1126 FOR 5iOJ TO 07:50UNO S , O 3 , O 3 , O 3 : H E X T S I RETURN 
IIJO GRAPHICS 17:G03IJB 158:? 1 1 o ■> : '-> lifts:" 3 "I ninm^n TMnWIfTCT ■ : 5 

C = I13:RETURN 
1 1 4 Q G R6PHIC5 OS: ? : ? ■ ■ THIS PPOGH6M REIUIIRES THAT B65IC":? 

:? " PROGRAMS KaUE HO FILE EHTENTION5." 

1 ISO 9 ;? " HO BASIC PROGRAMS WERE FOUND ON":? :? ■■ THIS l> 

ISKETTe . •" I ? :END 

1-160 GRAPHICS 18: GO SUB ISO:? »0 6 : ? tt»6:? 11(16;" I WAS II NAB 

l-E" : ? UD6 : "? B(t6j" IO LOAD " I ? »06:? K(16 J »" ":DOITS 

1170 FOR JW=iOO TO 255:50UND O 3 , J W , I Q , Q 8 : S O U NO O 1 , J W- O 2 , 10 ., O 
8:NEKT ..I W : S O U N D O 3 , O 3 , Q 3 , O 3 : S O LI M l> O 1 , Q 3 ., O 3 : , O 3 : T R A P 4.0 00 O 3 GO T 

O 4 o o 



FORMAT1 



REM UllfclSfAlUM (c) 1982 BY JERftY WHITE CDI5K FORMATTING UTILI 
TV AND TUTORIAL} 

1 R E: M 

9 rem amarnxma mtimiimmLsamasmmEinLSxmm »j . LiiA*T«HBiaiirHCTBiinTiiii(.;Trji»iTH 
iMTtnariOTaFrar-M 

18 GRAPHICS O : S E T C O L O R 2,8,8:POKE 82,2:POKE 83,39:POKE 281,1 
O : P O K E 752,1:? 

2 O ? , * ■ F O R M A T DISK ON D R . 1 ■ ■ : ? : ? ■ ■ PRESS START WH E H R 
E; A D Y . " : G O T O SO 

irT-wm-jwiTn 

48 F=F+L:? CHRS(125) :? 1 ? :? :? , ' ■ F O R MAT T I N G DISK »" ; F 

SO T R A P 2 O O : K I O 2 5 4 , »1 , . O , ■ - D .1 : " " : T R A P 48B88:UEM I'll H 1 1 II I Ml' I H I 1 f ' 

■Kara7n»ij.i<iif.%tii»»Tt-a 

S 5 POKE 66,1:? CHI«e253):POi:E 6 6 , O : R E M liSjl ;ll» P| t < })**■ 1 1 >!■ — I I'I'II— irtU 

■siiEJBKana 

SO ? ."DISK FORMATTED" : ? :PBKE 77,8:REH I .% MM J «V frl JM 1 1 fgH 

[ OBf BECJa mum** 

7" ? " PRESS START TO FOR MAT ANOTHER DISK":? " PRESS OPTION 

TO END THIS PROGRAM" 

SO IF PEEK(532791=6 THEN 4 G : R E M INSTANT RE: PL AY. 

58 IF PEEK(53279)=3 THEN 3BO:REM THAT'S ALL FOLKS. 

ibo goto 88:rem iTliMHif-Tf Mft ir Pi J*» wuuirim f»,l,t* < 'ISO 

j ft o rem !•-•»», ii : t-1 -jmi t ■ jmhoc o*im; ■• iiktvviiw E wr S xrpwenmsr>: r;wn rrarrninrriOri 
195 rem wiiMjiHM tti^iir.xmj»ittMitigi sriiuM»*ii i i 1 i i '— * m i — iim;iii i.*raan 

2 00 ? CHRS(253) :? :? "I WAS UNABLE TO FORMAT THAT DISKETTE": 

?' 

2 1 O B A D = B A D + 1 : F = F - 1 : G O T a 7(CREM EGTSil P^Bfa pMlTIW i ftjjtSI iti I — J. I TiTSgiTi 

3 ? CHRSC125) :? : ? F ; " DISKS FORMATTED":? : ? "UNABLE TO I- O 
RMAT " ; B A D J " DISKCS3" 

3 1 o rem tttwuM"ll« lfrpj«laMr,t8P« KHDM EI I IS SHOD IS! ■EEEmBDl ■ITU* I 09M ! H3 ; WmMSMS 

smaamsmsss 

3 20 ? : ? " END OF PROGRAM FORMAT! ■■ : ? : ? " PRES 

3 ANY KEY FOR MENU": POKE 764,255 

330 IF PEEK 1764 J =255 AND PEEK (532791=7 THEN 3 38 

34 POKE 764, 2 55: RUN "D:MENU" 



DISKLIST 



a REM C»* "¥m ifSEU 4^2,-- S 2 (Cl 1982 bv Jerry Hhite 

1 1 GRAPHICS 8 : P O K E 752, 1:5ET COLOR 2,5,0:BIH A$ (4B) , DH$ (40) , 

FiCIO) ,BSC48) :BSC1)=" ■• I B* C48] =" ": BS(2)=BS(1) 

12 8 ? ••**.* rsr^ssrrsrsrrirsssssssrsfi 1 ■ : ? ■■ ! ■■■■ 

J. 22 FOR ME=15 TO 8 STEP — 0.2:SOUND O, 51,i2, ME : NEHT ME 
ISO ? u " 4- 4- 4- T h i s program will print 3 diskette" 
14 8 '? : ? "directory 'that Ma »ji be attached to a " " 

1. 5 a ? ; "? " ' d i s k .j a c fe e t . Inse I t your d i s k e 1 1 e ,, ■ « : F O R ME = .1. 5 TO 

STEP -9.1! SOUND B , 182 , 12 , ME : NEKT ME 

160 '? SPOKE ?S2,[):? "then type the drive nUMber"! I TRAP 128:1 

H P U T E> N : T R A P -4 O O O O 

ISO ? "IS + 4* + TYPE A HEADING IDENTIFICATION LIHEH" : INPUT DNS 

ZOO FS="D" : FS [LEN (F$) +1) =5TRS (ON) : FSaEN[FS)+l) =":*.*": CLD5E 

ttl : T R A P 6 B O : O P E N ttl . 6 , O , FS 
282 TRAP 100O:CLOSE »2:OPEN B2 ,8,8, "P : ":TRAP 48888:? "Ki*4* 

mmwfmtmMmcmamm •• > p o k e 752,1:? ■ ■ ■ ■ 

20 4 LDN=LEN(I>N?) :IF L D N = 8 OR LDN>33 THEN 2 OS 

286 TRAP 268 t J W= IHT((48-LDN)/2) :PRINT B2 i BS (1, JH*1) ; 8NS : T«OP 

40000 : GOTO 210 
ZOS PRINT B2;" ":DNS 
218 PRINT «2 : '? U2 : " FILE: EHT SEC FILE EKT SEC'":'? 

t*2 
2. 2 O T R A P 2 6 O : C = C + 1 t SETC O L O R 4 , C , ft 1 INPUT ttl , A S : I F LEN(OS)<5 O 
R <|S(S.8)="FREE" TH E H 2 5 O 

2 3.8 ? 1*2;" "■ ; AS ; : C = C + 1 : SET COL OR 4,C,8:INPI1T Ml, AS: IF LEN CAS 
) < S OR A * C 5 , 8 J = • ■ F R EE" T H E N 2 S 8 

248 t «2 : " "; AS: GOTO 228 

25 8 ? 412:'? 112 : " ■■ J AS tX ■ S3 :" FREE BLOCKS AVAILABLE > '"F 

OR 1=1 TO 6 : PRINT U2INEMT I: CLOSE B2 

2 6o i • • Hi 4 44 * ■ ■ : s e t c o l o r 2,15,8:? • ■ mscxwtsiMmisxmtsswEsmssa 

■■' 

288 ? : '? " PRESS UiaHUM!! FOR MENU" 

298 ? : 2 " PRESS EIZaaDV TO RERUN" 

IB8 IF PEEKl53279)r6 THEN RUN 

318 IF PEEK(53279)=3 THEN t ■■*■■:? :? ."LOADING MENU...": TRAP 

588 I RUN ■ ■ D : ME H U • ■ 
328 GOTO 3 O 8 

see t ■■■;*+*+ mmKmmmsExammsjs^mEBismammimsm" sroa he=i to 20 

O : NEKT ME 

S18 ? : ? " " PLEASE I N S E R 1 A D I SKE T T E INTO":? : '? " ■ D R 1 >J E O 

ME WHICH CONTAINS THE":? :'? " MENU PROGRAM." 

528 '? "J- +4 PRESS BBE1H] WHEN READY 1 ' 

S3 8 IF PFEK(5J279)=6 THEN TRAP 588: RUN "D ) MENU" 

6 4 8 US T O S 3 O 

6 o o trap 4 o o o o : '? "R4444 »nm»*'1'I Q'l Mil 1 1 II i HI WLtilLlWkSilMiluUaHr' ' = F o 

R ME=1 TO 588: NEKT ME 1 RUM 

1888 '? "HQ41.H VOUR PRINTER ISN'T READY":? : *? " PRFS 

3 fa» If -V» I UHEN READV . . ." 

1 O 1 8 IF PEEK(53279)<>6 THEN 1 8 1 8 
J 8 2 O GOTO 2 O 2 



ftUTDBOOT 

188 HEM taTJtKHaSEini (CREATES AUTORUN.Sys FIL.es <.<:.» H82 Jerri) M 
hite 

118 DIM A S 1 1 2 O S ,FNS(14) : F r H S = " D 1 : A 1 1 T O R U N . S V S " : G O T O 288 

1 2 8 FOR ME-1 TO 8 S : R E A D IT » PUT ttl,IT:NEKT ME : R E I LI R N 

J. 3 8 FOR ME = 1 TO 20:READ IT: PUT ttl. IT: NEKT ME: RETURN 

1 4 8 FOR %■=. X TO 1 2 3 : R E A D D : I F 1 = 64 THEN PUT *»1 . L E N t A S J) — I : G O T O 
168 



ISO PUT «:L , D 

leo NEXT I 

178 FOR I = LEN tASj TO 1 STEP -1 : PUT tti,H5C«l$CI,I)) I NEXT I 

-ISO PUT Ml , 255 : PUT »L,ZS5:PUT »1 , 226 : PUT B1,2:PUT B1,227:PUT 

HI , 2 : PUT Ml . 8 : PUT Ml , 6 

1 9 6 2 :? ■■ CLOSING "lFN$lCL.OSE »l:POKE S2,2:POKE 83,39:2 :P 
OKE 752,0:EHI> 

288 DUTtl 255,255,8,6,5,6,169,148,141,197,2,96,255,255,226,2, 

2 2 7' , 2 , O , 6 

Zia DATA 2SS,258,B,S6,7B,S6,169,88,141,8,3,1B9,1,141,1,I,169 
, 6. 3 , .1 4 .1. , 2: ,3,1 6 9 „ 6 4 , 141,3,3,169,5, 1. .41,6 

228 DOTH 3,141,5.3,169,0,141.4,3,141,9,3,141,18,3,141,11,3,1 
&9 , 12 , 141 ,8,3,32, 89 , 228, 16 ,1,96,162 

238 DATA 11,189,0,5,157,0,3,202,16,247,32,89,228,48,6,32,6,5 
, 168 , 12 , fl, 96, 226 , Z , 227 , 2 , 8 , 5 6 

2 4 8 DATA 1. 62,8,189,26,3,281,69,248,5,232,232,232,288,244,232 
,142, I OS, 6, 18 9, 26. 3, 133, 285, I 69, 107,157, 26, 3, 232, 189 
2 58 DATA 26. 3, 133, 286, 169. 6,. 157, 26, 3, 168, 0,162,16, 177, 285, 15 
3,187,6,288,202,288,247,169,67,141,111,6,169,6,141 

2: 6 8 BAT A 1 1 2 , 6 , 1 6 9 , i O , 1 4 JL , 1 O 6 , 6 , 9 6 , 1 7 2 , 1 O 6 , 6 , 4 8 , 9 , 1 8 5 , 1 2 3 , 6 , 
2 86,ll]6,6,168,l,96,138,72,174,185,6,165,285,157 

2 7 O DA T A 2 6,3,232 , 1 65, 2 O 6 , 157,26,3,184,176,169,155,168,1,96, 
0.0.8,0,0,8,8,8,8,8,8,8,8.0,76,6,8,0 

2 88 GRAPHICS 6:POKE 718, 144: POKE B2 , 1 i POKE 83,38:POKE 281,18 

:? ■■ f •• eiioofciiimriir^ji]^ 

298 ? , •■ \*X'X=mu*;**t<v.m'V ; ? :? ■■ I'l a»r«Ti<<-3Wbg«y^iM i. — 1 1 ' ■» 1 1 m 111 i.i 

388 2 : 2 ■■ BOOT INTERFACE CY or' «)>"; : EOSUO 360 

318 '? :? ■■ MfHoit— litiKntWilHW" 1 T : INPUT AS: POKE 7 5 2,1 

328 2 :2 ■■ OPENING ":FMS:CLOSE HI : lll'EN »1,8,8,FMS:? :2 "■ CR 

EATIHC "iFKS 

3 38 IF BOOTS 5 O THEN RESTORE 200:G0SUB 130:REST0RE 218:GOSUB 
1.20 : GOTO 358 

3 4 8 RESTORE 2 8 O : G O S II B ISO 

358 PUT Ml, 255: PUT M1,25S:PUT HI, O: PUT »1 , 6 : L=123+LE« (OS) -1 : 

PUT Ml. L: PUT *tl , 6 : REST8RE 24 0:G0T0 148 

3 6 8 POKE 764,255 

3 7 O I F P E E K C 7' 6 4 t = 2 5 5 T II E H 3 7' O 

3 88 IF PEEKC764)=4I "I HEN f "T": B0OT85O = l!P0KE 764,2S5:RETURN 

J90 IF PEEKC764):35 THEN f ■■N":B00T8 5O=O:POKE 764 , 255 : RETURN 

488 ? it I? ■■ PLEASE TYPE Y OR N2"; : GOTO 360 

588 2 "'0+* I WAS UWABLE TO OPEN ftUTORUN , 3 V5'" I GOTO 980 

6O0 2 "£)*• + ERROR WHILE WRITING AUTORIIH . SVS" 

988 ? ; ? , "ERROR NUMBER ";PEEKtl95J :POKE 281,8:? : 2 , "PRESS 

tiTiSSLljin TO RERUN":? , "PRESS gQEECTi FOR BOS"; 

918 IF PEEK 153279) =3 THEN RUN 

920 IF PEEKC53279)=6 THEN CLOSE ttl:D05 

9 3 8 GOTO 918 



I mof>ec:t 

tat REM B;4F:iES(-=J| ST-* i CCl L982 ..l<?r-r-v WhiTr- T3/17/821 

1 t. 8 GOTO 948 

1 2 O R E M 

130 rem *h« mmmassmmmmssmmsmEmMmmmmisiswm <*» 

1 4- O R E M 

ISO FOR H = A TO B : 1 F SEC$ CX , X] =CHR$ (IBS) T H F N t " ■■ } : GO T.O 178 

• fi 8 2 5ECSIH.X) : 

178 NEHT H : RE TURN 

1. 8 8 REM 

i98 rem **•*- i-^^^-a^'-'L'Js^i^^jf.atiiMij^aiwriiiiJi&SEi »*** 

2 O O RE M 



218 FOR K=H TO Et : BVTE=(1^C ISECS (H , X) ] : IIK=IHT (BV rE/ 16) H ; HEX = B 

VTE-16* CHK-1) + X : HEKS CI , 1) =HEK5T«S CHH , HKJ 

220 HEXS (J , 4) =HEK5TBS IHEH , HEK) : ? HEXSi INEXT X: RETURN 

2 3 a REM 

2 -to rem mm i4:f ! -i;^-'i^"'><:»'*'**'»iv^"*TTra ■■"* 

2 5 O REM 

2 6 a POKE 7S4,2S5iPOKE 82,211 ■ ■ « " 8 f •• EH *MOf H W^^MMIM S3! ■■■■3033 

2 7 a POK E 7 7 9 . -1- : F O R L O O P = X T O 8 : PUKE 7 7 8 , X. l)4*I.O(IP : IO=U5R c A 1> R < 

ciciSi :» 

2:88 for entbv-1 to 8 : 5tfites-5ec$ ientbvm16-15 , ekthv*16-:i 41 i if 

ST)iTES:"»»" THEN 34(1 
298 IF •iTOTES(l.l)="C" THEN f • ■ l> ■> J s GOTO 328 

3 O O LOCK = (l5CCSTflTES<l,l)) :LOCK=LOCK-INT[LOCK/64I*64:IF LOCK) 
= 32 THEN t • • L. ■ ■ ; : G O T O 3 2 O 

318 "? " ■ ■ ' ; 

3 2 O ? e » C L OOP-l)+EIIT»V;"l" , ;5ECSCEHTBV)H6-18.EllTRY*161 ;"•►•■; 

338 1 n5C(5ECSlEHTRV*16-12))+256«B5C(SECS(EKTBV»16-lU) :"■►■■: 

A3C (SEC* tENTRV«16-14) > t256*A5C (5ECS (EKTRV*16-1.3) 1 

340 NEXT ENTRY :MEHT LOOP: KOTO 758 

358 REM 

J68 REM **» I'jtir- IS'm^iaMblalWlltlTj l MM 

S70 REM 

3 8 8 P O K e 7 64.2SS:fc O S I.I E* 828:POKE 8 2. .1. 

s 9 a ? ■ ■ «j «**<»!;»:iuaij rr3 , q "jnumi? uo=usnefti>Htcio*)) ■ x f c = i then 

POKE 766 , 1 

4oo i • i> V# f ,i# n^anT'TiimTntTri irn wnp nww t*,M^*fr^»*»*tf?>" i ? ••l■iB«i'iBl^H^ff'^^•*^ 
tT'Er- ssp eh* «rh"; ilia -we ■ « ■ :« *•*■■ *:: »■■ em = mi ■- i. v • 

4X8'?'" " " : I A = L : B ::- 3 2 : X F~ C ~ X T HEN G El % U 6 X 5 O : G O T O 438 

4 2: O 6 O S II El 2 X. O 

438 * i? : ■? i? 'laaimBEBBEBlJ^^ "W 

— pfciR|Wi»jgaa *■*■* H»H-.Wi:i ■d&Kld3EX!lfXi£Kfcgi > ■ 

4 4 O t " " " : : « = 3 3 : B = 6 4 : I F C = X THEN G O 5 U B X S 8 : IT. O T O 468 
45 8 GO SUB 21 O 

460 V :? :? :? " I iVAJ J = M^^rt^^^Jr>-Jr.*-A*^^ ^.t:^t.«^^:i.i.f.T ; ^»^^rpM" ■ * "■ 

478 ? ■• '■: :« = 65:B = 96:IF C=l THEN GD6UB ISO: GOTO 498 

488 GQ6UB 218 

490 ■> :» :? :? - -L:Y« r=£- 1MIMNW 9 ¥ * * * * *^^ 

sea ■> ■ ■ — — > ^pgTt;iiiiiiaTjaiFliTrjn|[T»j: f yrr* « B ^»^-^^^-jk>- • 

a.l.a ? > -liMmilWHK «-$. r--*iF*-f:!Pf*i"VI^f'f-*CI-^*.<--*I--»»-*"*.Ii-I--H" 

S20 ? •■ "j:ft = 9?:B=12*HF C = A 1HEN GO SUB ISO I GOTO S48 

Ei 3: O GD5UB 2 X O 

5 4- POKE 766,8: '? :; G O T O 5' 6 8 

5 5 8 REM 

&e,.e rem «•» i^TiTiCTifriMiarcni *** 

5 7 8 BEH 

5 8 a P O K E 7 6 4 , 2 S B : T R A P 5 a 8 : » ■ "1* •• ! f I T "" EN T E. R F 1 1... ENOME"; : 

X H P LI T I15EBS:I-ILES = DBI0ES:FILE5(I EMlFILESl HI =U5EBS 

598 TRAP 658; CLOSE li'.l 1 :: I > n > I! M B I . 4 . 8 , f I L E S : C Oil N T = O : SC a LIN T = 8 : P O K 
E 2 8 .1 . I 8 : P 8 K F : 82.3:POKE S3, 3 *> : F I SE= I 

6 8 8 POKE 7S2,liPOKE 766.8;'? "K"lPOKE 768,11? ■ I H iH — '1 <»M'I l^jll 
■ IUM'1 IHUI — ill I III • 

618 GEil BX . BYTE ; COHNT-COUHT + 1 : 5 COLIN T = S C OUN T + X : HK--X N I IBVrE/lb 

J I X : HEX-BYTE-16« £HX"U + X : HEX5 t X , X 3 -HEX5TBS (HX . H K 1 

628 HEX$(4.4)-HEX5TBS(;HEH r MEX) t ? • • ": COUNT ,BVTE .HEXSfl , X ] ; HE 

XS[4,4) ; I X F B V T E=155 THEN B Y T E = 3 2 

6, 3 8 9 ■• "ICHRSCBVTEI 

6 4 8 I F S C 1.1 M T = 2 8 T H EH GO S LI B X 2 3 O : S C O LI H T = O ; G O f I.I 6 8 

f > SO GO T O 6XO 

Ei. Ei- 8 R E M 

6 7 8 rem «-*t ri";T r 1":SWWrT;IT;oja ■**-►!■ 
e ft r it. m 

65B POKE 66,U:EfiBOB = PEEK(195) IIP EBBOB = 136 THEN '? If ."END O 
I" F X L. E ' ■ ; ? : -' : G O S LI 6 7 58 ; H II w 

^' 8 8 X I- E R R O R = .1 7 O T II E N "? : '■' ."FILE NOT F O UNO"" : f : V I GO T O 758 
718 ? :? ."EBBOB "" i ERROR t" AT LINE " ; PEEK U 86) <-PE£K I I (17 1*256 
: ? ;: ? : GOTO 758 
728 REM 



738 REM 
7 A 8 REM 
7SQ P O S X T X O N 



NJIIJi1: n ; VM;M»i *ihm> 

7.23:? ' ■rja[aEs? : »i';Ta , jiiaioi«*in«icnisi!Ji:iiT]Ei- ■ ; : p o k e 



'61,25 



76 8 


IF 


7 7 


I F 


7 SO 


PQ 


7S»8 


HE 


soe 


HE 


818 


he 


82 


TR 


: TRAP 


836 


HLI 


ItMWMtfl" 


S18 


? 


5 5 




858 


ILft 


see 


IF 


H70 


IF 


8SO 


? 


ftg-o 


p O 


988 


PO 


916 


H E 


920 


HE- 


938 


BE 


=> « e 


D I 


= "h 


SB 


9 5 8 


HE 


51' 6 8 


l> r 


5>7 8 


PO 


s>ae 


p 8 


■^■g-e 


PO 


J.. 8 8 8 


p 


1818 


R 


J 8 2 8 


R 


18 3 8 


R 


j. e 4 8 


G 


: POKE 


J 8 5 O 


'> 


i o 6 a 


•■?■ 


1878 


'? 


i e a o 


'? 


J. 81? 8 


•? 


1 J., o o 


*> 


1118 


2 


J 1 2 8 


'? 


113 O 


P 


1 1 .1 O 


L 


1 ISO 


I 


i 1 e o 


X 


117 8 


I 


1 1 6 8 


I 


K El! 7 & 4 


1198 


G 


1 -2. O O 


R 


1 2 1 8 


R 


1228 


R 


1 2 3 8 


P 


1218 


I 


J.. 2 5 O 


I 


1 2 & O 


G 



PEEK* 7 643=255 THEN 760 

FLAG THEM RETURN 
K E 761,255:G8TO 1 O 4 O 
M 

m M«t mn Jit *fci«t*»<u =» ;m araa t»mai l at.ir« r.* i «* 

M 

TYPE SECTOR NUMBER GTOOTEC] ' " ; :IMP 

HEN 2 :? , "mZSXM& 

: POKE 

r H e h a 5 o 



OP 820 : ? ! T " 
4 O 8 8 8 

M=XNT (HUM) [IF HUM<1 OR NUM>72S 
• GOTO 828 



UT N U M 



5TKEY3PEEK(761) : I F LASTKEY-255 
LASTKE V = 31 T H E H C = 1 : G O T O B 9 O 
Lfl5TKEV=38 THEN C=2:GOT0 898 
: & o T O 818 

K E 7 7 8 , H U M— X M T C N U MX 2 5 6 3 »2 S 6 

K E 779,111 T t N U MX 256) : R E T URN 

M 



iECS(128) ,STOTE$(2) ,HEK5(5) ,HEH5TBS(16 
HE«5TRS="8123156789aBCI>EF" 



M CI05I5) 

♦ "■ 

X$ = " +*• + 

M BBIUE5 (3) , USERS (17) , FILES [15) : DRIUES="D1 : • ■ 

K E 7 7 2 , fiOR CjECS) — X NT C A l> R (5EC5) /256)*256 : REM LOH 

K E 7 7 3 , X N T (*)&H(5ECS)^256) : R E M M X G H & V T K 

KE 769,1:REM ORIUE 1 

8KE 7 7 8,8 2 I R E M READ 9 E C T OR (8 7 =HRI T E SEC T O R 3 

EM 

em *h* EDOSSiailSlKECCiaBBE *** 

E"M 

R A P H X C 5 O : P O KE 7 18. 1 4 .« : P OK E 2[I1,9:P(IK E 7^ S 2 , 1 : P O K 
83,39:FLflE=8:POKE 766,8 



) : CIOS 



! *> 



PI5K INSPECTOR I " 



,°"i= e:haimxne directorv" 

, ■ " 2 = E K AMINE 3 EL C TOR" 

,■•3= EK AMINE FILE" 

, ■ ■ 4 = RUN MENU" 
OKE 761,255:5ECS(1)=" " 15ECS (128)=" ":5ECS(2)= 
«4TKEV = PEEK(761) : I F L A 5 T K E V = 2 S 5 I H E M 114 8 
F LflSTKEY = 3:L T II EN 2 4 8 
F L A 5TKEY=3fl T H E H 3 E> 8 

F l_ A S T K E V = 2 6 THEN POKE 7 5 2 , t* : G O T O 56 8 
F L ft S T K E V = 2 4- T HEN POKE 2 O 1 , 1 O : G R A P H I C 5. U;POKE 
,255:2 : 2 : 2 , "LOADING MENLI":RyN "Dl MENU" 
O T O 1 1 3 d 
EM 

em ww msMmMimmmmmamxnmii *** 

EM 

osition s , 2 s«? ■ ■ HcrawiiirrpanrnjrgarriTnHMTrrr EEEI 303 

E PEEKC53279)=3 THEN RUM 

F P EEK t 5 3 2 7 9 3 ~ 6 THEN R E T 11 R W 

O T O 1 2 4 8 



S ECS (1) 



; 2 . i : p o 



SPEEDCHECK 

o rem GjamaEBi 1/29/62 

106 GRAPHICS OiPOKE SS9,H:FOR I = Q TO 7 2 > RE A© H:POKE 1536tI,H 

: M E K T I:POKE 7ie,0:P0KE 32,llPOKE 281,18 

128 9 ■■*■■:? i "I,, ■■ — " :■? , "I IM^MUJMJjnJHSKISmil" : "? , " 

|| i n ——— .■!■ . :P OKE 559, 34: POKE 752,8 

ISO ? "i*iHE5T WHICH »RI«E NUMBER"; : TRAP lSBUNPUT DRIUEiTB 

AP 48888 

168 DRHIE = INTCDBIUE) :IF l>RigE< I- O R D ft X VE>4 THEN t : "i " ENT 

ER DBIUE NUMBER 1, 2, 3, OR 4" : GOTO ISO 

ISO POKE 752,1:? I t •• TESTING 188 DI5K REUOLUTION5":? : ? 

" THIS SHOULD TAKE APPROH, 22 S E C O N 1> S ■ ■ ; 
2 O O POKE 1618.DR I U E : H = U5R(15J6] :fl = PEEK(1611I : B = PEEK C1612) : MI 
M= t256*B + (i) /3600 : RPM=INT (180/MIM + 8 . 53 
2 2 O ? : "? : ? "" ► p|3SEtH*"J RPMS XP RPM>284 AMD RPH<291 THEM ? : ? ■ ' I' 

DRIVE SPEED IS . K . • • : P O K E 718,178:GOTO 2 5 O 
2 3 O POKE 718,66:IF RPH<285 THEM ? : '? "►DRIOE SPEED IS TOO 5 1 ... 
OH" J GOTO 250 
2 4 8 ? : '? "hDRIUE SPEED IS T O O F A S T ' ■ 

2 so t :? "press EEBEEE for menu or BHS3BD to rerun 1 -; 

3 O O IF PEEK(5J279I=6 THEM 1 2 O 

3SO IF" PEEK(53279)=3 THEM POKE 32,2:? "«":'? , " LOADING MENU" 
: R LI H "D:MEHU" 
4D8 GOTO 308 

58 O REM DATA FOR MACHINE LANGUAGE ROUTINE 
1 O O DATA 184,169,1,141,18,3,169,8 

1 O J. O DATA 141, 1 1 , 3 ,141,4,3,169 , 5 
A O 2 O DAT A 1 41,5,3,173,74, 6 ,141,1 
1 3 O DATA 3,169,82,141,2,3,169,5 

X O 4 O DATA 141,73,6,32,83,228,286,73 

18 5 8 DATA 6,208,240,169,188,141,73,6 

1868 DATA 169,8,133,19,133,28,32,83 

1 8 7 O DATA 228,206,73,6,288,248,165,28 

1688 DA T A 164,19,141,75,6,148,76,6,96 

2! O O O RE M 

2818 REM THIS IS A MODIFIED OERSIOM OF THE RPMTE5T PROGRAM O 

RIGIHALL. V PUBLISHED 

2020 REM IN THE MAY 19 8 2 ISSUE OF COMPUTE! MAGAZINE. 

2 8 3 8 REM WE WISH TO THANK BOB CHRISTIANSEN FOR HIS PERHIS5IO 

M TO INCLUDE THIS 

2 848 REM PROGRAM AS PART OF THIS TUTORIAL /UTILITY PACKAGE. 



REM FILES (c) 1981 by Jerry White 

1 REM ATARI DISKFILE TUTORIAL DEMO 

2 REM 

188 DIM DRIVES CS7 , FILES C12> , DRIUEFILES 115) , RECORDS tlO) , ANSME 
RS (1J 

118 DIM SECTOR [20J , BYTE (28) , DIRECTORVS C26) : REM DIMENSION STR 
IMG3 AND ARRAYS 
111 REM 
128 GRAPHICS B : POKE 82,2:POKE 33,39:REM CLEAR SCREEN AND SET 

MARGINS 
138 POKE 281, 5: 5 ETC LOR 2,1, 8:REM SET PRINT TAB WIDTH TO 5 S 
PACES AND COLOR 

148 t :? "TYPE OPT TOM NUMBER THEN PRESS RETURN" 
158 ? : ? ,"tl) CREATE A DISK FILE": REM GOTO 1868 
168 ? :? ,"(2) READ A DISK FILE":REM GOTO 2 888 
178 ? ! 1 ,"(3.) ADD TO A DISK FILE":REM GOTO 3888 
ISO ? If , •' (4) UPDATE A DISK FILE":REM GOTO 4888 
198 ? :? , " C5) DISPLAY DISK DIRE C TOR Y ": REM GOTO 5868 
288 ? :? ,"{6) RUN MENU": REM GOTO 91 4 O 
210 t :? ."YOUR CHOICE"; :GOSUB 7888 

220 TRAP 8888 : LTNE=120 : HIGHHUMBER=6 : NUMBER=UAL (ANSWERS} 
238 IF NUMBER<1 OR NUMBER > 6 THEN GOTO 3008 
248 ON NUMBER GOTO 1008,2880,38 8,488 0,5088,9148 



^58 REM 

ODO LINE: 



618D:GOSUB 7100:TROP 3:1 8 O : tR ftp H I C 3 8:5ETCOLOR 



1818 C105E t*l : O f E M ttl,S,e,DRIVEFILE$ 

1828 1 : 't "CREATING ";DRIUEFI1ES:? :l)ECORDS = ' , 1234S678^8 , 

1030 FOR DEH8=1 TO 18 

1848 ? «.:l ; RECORDS 

1858 ? "MRITING RECORD M1JMIER ";OEM8 

.18 68 NE«T DEMO 

1878 f : '? "18 RECORD DEMO FILE CREATED"" 

18 8 8 ? :? "CLOSING "'; DRIUEFILE5 

1838 CLOSE »I 

1188 GOTO 61BO 

1118 REM 

2880 IL I M E = 6 1 8 8 ; G O S U B 71IIO:TRflP 3 1 8 8 : G R A P 11 1 C -_, 8:SETCOLOR 



018 CLOSE B2:OPEH 112 , 4 , O , DRIUEFILE* : BECNUM=8 : LINE=6188 

8 2 INPUT »2,KECO(tI>S 

630 RCCNUM=RECNUMtl 

848 ■? "RECORD NUMBER "IRECNUM; 

8 5 8 ? , RECORD S 

8 6 8 GOTO 2828 

8 78 REM 

OOO IL I N E = 3 O 8 8 : G O 3 LI B 7180:TR0P 9.188 ;GROPHIC5 8:SE T COLOR 



10 

28 
38 

48 
58 R 
68 I 
78 

BL( 
3 8 
OO 
18 
28 
3 8 
48 
8 8 
1.8 
8 8 



L O S E 
R APH 



ECLE 
F RE 
OR B 
UK 
R I N T 



F PE 
F PE 
OTO 

: ~> 
EM 
INE = 



US I OPEN «3 ,3,8, DRIUEFILES 
ICS 8 : ? ; ? f "flOB RECORD (53 ROUTINE:" 

. ""ENTER .1 8 C II AMACER RECORD" 

,""OR JUST PRESS RETURN TO EDIT"!? ; G O 3 IU IS 6000 
N=LEH(RECORD$J : IF RECLEN=8 THEN 32 88 
CLEH:18 THEM 3838 
LAMK::R£CLEN + 1 TO 10 : RECORDS fLEN tRECORl>$l +1) =" " 

«3 iRECORDS 
""PRESS 5TART TO ENTER ANOTHER RECORD" 
■■PRESS OPTION FOR OTHER OPTIONS... 1 "; 
EK(S3279)=6 THEN 3828 
EK(53279J=3 THEN 3288 
312 8 
;? ."ADDING RECORIX5) TO OI5K":CLOSE B3:GOTO 1: 

418 8: GO SUB 7188:TROP 3 188: GRAPHIC 3 B;5ETCOL8R I 



• a 

28 

38 

4 
58 
68 
70 

8 8 
8 8 
18 
:2 8 
JO 
4 O 
r>o 
8 8 
iO 
28 

48 



IMOT 
RFC 
SEC 
IMP 



IF 
■IF 
GOT 
GRA 



TRA 
HJPD 



5E tt4:OPEH 04 . 12 , O , DRI'UEFILES : l.INE = 4180 

? , ."CREATING mi)EX":RECHUM=0 

E »4 , SECTOR, BYTE 

NUM-RECNUMil 

TOR (RECHUM) = 3 £ C T O R : BVTE [RECNUM) = B V T E 

Ut **4 , RECORDS : ? , "" RECORD "1RECNUM, RECORDS 

"5£CTOR = " 1 iECTOR, "BVTE="i BVTE 

GOTO 4838 

M U M :::: RECNUM 1 

«? "PRESS START TO UPDATE A RECORD" 

? ""PRESS OPTION FOR OTHER OPTIONS"; 

PEEK(5327?)=6 THEN 4288 

PEEK[5327«=3 THEN CLOSE 1*4 : GO TO 128 

O 413 8 

PHICS 8:REM RANDOM ACCESS RECORD UPDATE ROUTINE 

? , "DISK FILE CONTAINS ";RECNUM;" RECORDS" 

■> "ENTER RECORD NUMBER TO BE UPDATED"; 

P 4228: INPUT UPDATE: TRAP 48888 

ATE=XNT CUPDATEJ : IF UPDATE<1 OR UP D A TE > RE CNU M THE* 



SO POINT t*4 

6 8 INPUT **4 

7 8 ? : ? ""EN 
88 RECLEN 
38 FOR BLAN 

BLANK 

88 P8INT «4 

19 PRINT 11*4 

28 GOTO 411 



.SECTORIUPCflTE) , BVTE(UPDHTE) 

.RECORDS;? :? RECORDS 

TER NEW RECORD «t" ■ ; UPD ATE ; : INP U T RECORDS 

E»[RECORDS);IF RECLEN=18 THEM 4 388 

K=RECLEN*1 TO 1 8 : R E CO R DS C L E N C RE C ORD S 1 +1 J =■ 

, SECTOR [UPOOTE) .BYTECUPDATEJ 

;RECORDSl? :? ."RECORD HAS BEEN UPDATED"" 



43J8 REM 

5B88 GRAPHICS 0:POKE: 752,1: 5ETCOLOB 2,12,0:P0KE 2 1,8:? : ■? , 

■■ DISK DIRECT ORY"":? : T R A P 9X88 

5018 CLD5E tt5:OPEN nS,6,0,"D:*.*"iREM OPEN BISK DIRECTORY FO 

K ALL ENTRIES 

5820 LIHE=61U8 

5838 INPUT nS.DIREC T O R ¥ 6 

5848 ? .DIRECTORY* 

5 8 5 8 GOTO 5 8 3 8 
5868 REM 

6888 RECORDS = POKE ?B4 , 2SS ! REM RECORD STRING AND LAST KEY 

PRESSED=NULL 

6 8 I O INPUT RECORl>S:R E TURN 
6 828 REM 

5188 FOR FILE=1. TO S: CLOSE BFILE:NEHT FILE: REM CLOSE DLL FIL 

ES 

6118 POKE 201,5: ? : '? .""PRESS RE T URN FOR OPTIONS'"; 

6128 GOSUB 7888IGOTO 126:REM PAUSE TO READ SCREEN THEN GO TO 

OPTIONS 
613 8 REM 

7008 ANSWERS^ POKE 764, 255 : INPUT AN S WE R $ : RE T URN :REM 1 CHA 

R A C T E R INPUT 

7818 REM 

71 .88 GRAPHICS 8:SETCOLOR 2,8,6:REM DRIUE NUMBER AND FILENAME 

INPUT ROUTINE 
7118 ? IT "TYPE: DISK DRIVE NUMBER (1--4)"; : H I GHHUMBER = 4 : G O S U B 

7880 
7 1 2 O L-.I NE37HB : T RAP 8UUO : NUMUERr UAL(AN5HER$) -.TRAP 3168 
71 38 IF NUMBER <1 OR N U MB E R > 4 THEN 8688 
7148 URIUES = "D'" : DRIUE$ (l.EN CURIUE51 +1J --ANSWER* 
7158 DRIVES (LEH (DRIUE$) -HJ =•■ : " " 
7288 '? : ? "TYPE FILE N A ME " ■ J : I H P 11 T F I L E S ' : I F 1EN(FILES)=0 THEN 

7266 
7218 DRHIEF1LES=DBIUES 

7220 DRII/EFILES CLEH CDRIUETILES] ■«- X 1 =FILES : RETURN 
72S8 » E M 
6U80 i ? ""PLEA5E TYPE A NUMBER FRO*t-X THRU "J HlfillHUHBtRl Ken 

ERROR ROUTINE 
88 18 GO 5 1.1 LI 9600:G6TC1 LINE: REM GO BACK TO LINE NUMBER [LINE) 
5888 ? CHRS1253) ;»EM RING ERROR BELL 
5818 FOR COUNTrl TO 3 O O : N E K T COUNT: RETURN 
?628 REM 

9188 P'OKE 7 5 2,8: IF PEEK C195J=136 THEN GOTO LINE: REM ERROR W A 
S END OF FILE 

S1H REM DISPLAY ERROR NUMBER AND LINE AT WHICH ERROR OCCURR 
ED THEN END 

9120 ? :*? "" ERROR "; PEEK (1S5) ;" AT LINE "; PEEK (186) *PEEK[187 
II K256 

S138 LIST PEEK (186) tPEEK (1871*256 : G05UB 51(1)8 

9 148 TRAP 40800: GRAPHICS OlPOKE 764,255:PBKE 752,liPBKE 201, 
IB 
9158 J > :"? :? , ""LOADING MENU"":RUN "DiMENU" 




Don't forget to ask for my other lessons teaching you about all 
of the great GRAPHICS and SOUND tricks that the ATARI 
computers can do-the TRICKY TUTORIALS™ for 16K: 



#1 — DISPLAY LISTS (many Graphics Modes at the same time!) 
#2— SCROLLING (move your Graphics and text around 

smoothly) 
#3 — PAGE FLIPPING (a professional looking way to redraw 

many screens of text or graphics) 
#4— BASICS OF ANIMATION (a beginner's lesson in moving 

shapes around the screen) 
#5 — PLAYER MISSILE GRAPHICS ( Learn to write a PACMAN™ 

type game of your own!) 
#6 — SOUND AND MUSIC (from single notes & chords to songs 

& special effects, I explain all) 
#7 — DISK UTILITIES ( Utility programs to help you use yourdisk 

drives (32K) 
#8 & 9 Coming soon to a blackboard near you! 



Sl2JI Fthe professor 



.© 



KNOWS WHAT 
H£ 15 TALKING 

ABOUT 



o 



<&*&< 



HELLO STUDENTS 1 . X AAA 
PROFESSOR VOM CHIPS I AM BRIN6IN8 
VbUTHUS TUTORIAL TO HELP MAKE TWAT 
8IO PlSK PRIVE YOU WAVE A UTTtE FRIENDUEf 
TO OSE. 1 KNOW VtOW HARD IT IS Tb WRITE 
YOUR OWN UTILITIES FOR THE DARM 

THfMG, SINCE IT Took MEyEARS To 
WE THESE PROGRAMS cszk rehired. 
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Here are the utilities on this disk 



1) A MENU program to tell you what Is on each disk, and 
allow you to run the program of your choice at the 
touch of a button . 

2) A FORMAT utility that allows you to format your 
disks with the touch of a single button (sound 

f ami I lar? I I Ike buttons) . 

3) Would you like a listing of the contents of each 
disk? If you have a printer, or can borrow one, 
that is exactly what you will get with DISKLIST. 
Tape the listing to each jacket cover and you are 
al I set. 

4) With AUTOBOOT, your disks will run themselves when 
you turn on the computer. You slmpily give the 
computer a list of instructions to follow when it 
first runs. 

5) INSPECT wll I make you as smart as a Professor! 
You can look at any place on your disks and see 
what is written there. 

6) Finally I give you DISKFILE, a small tutorial on 
writing and reading Information to a disk. 
Perfect for those of you who want to real ly 
understand the mysteries of DISKOLOGY (one of 

my favorite subjects)! 

7) A bonus! My Robot, Prototype, has Improved a 
recent program published In COMPUTE! (of course 
I asked first). SPEEDCHECK will help you be 
sure your drive Is running at the right speed. 



